
Name=Dragon
hp=200
attack=19
defense=15
exp=0
gold=0
description=The Dragon is a fearsome beast with leathery skin, giant wings, \
and breath of fire.  It will protect its hoard of gold and treasure at any \
cost, attacking anyone who approaches too near.

:on_death
#Give the player one of the dragon items.
if(is_equipped("Dragon Breastplate"), "=", 0)
	info("You create a Dragon Breastplate out of the remains of the Dragon!")
	item("Dragon Breastplate")
	info("You get 40 experience.")
	give("exp", 40)
	end()
endif
if(is_equipped("Dragon Helm"), "=", 0)
	info("You create a Dragon Helm out of the remains of the Dragon!")
	item("Dragon Helm")
	info("You get 40 experience.")
	give("exp", 40)
	end()
endif

#If the player has both a breastplate and helm, give them a standard reward.
info("You find 150 gold,")
give("gold", 150)
info("and get 40 experience.")
give("exp", 40)

#This gives the player a Dragon item 60% of the time upon killing a dragon.
#While it works, it is a bit "unfinished" right now. I need to give more
#power to the "if" command; make it stackable.
#It is provided here as an example.
#set dragon_item = ~rng 50 50~
#info ~var dragon_item~
#if var dragon_item > 35 | item Dragon Breastplate | pass
#if var dragon_item > 35 | info You found a Dragon Breastplate! | pass
#if var dragon_item > 35 | end | pass
#if var dragon_item > 20 | item Dragon Helm | pass
#if var dragon_item > 20 | info You found a Dragon Helm! | pass
#if var dragon_item > 20 | end | pass
